From 604bda85afc23fe5c9c64bdd2100c050f357c787 Mon Sep 17 00:00:00 2001 From: Liang Wang Date: Thu, 22 Mar 2012 10:46:05 -0400 Subject: [PATCH] * lisp/progmodes/etags.el (etags-list-tags): Only use tags which goto-func understands. --- lisp/ChangeLog | 5 +++++ lisp/progmodes/etags.el | 4 +++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8744c451339..fb2f88f55fc 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-03-22 Liang Wang (tiny change) + + * progmodes/etags.el (etags-list-tags): Only use tags which goto-func + understands (bug#9942). + 2012-03-22 Chong Yidong * simple.el (end-of-visible-line): Handle return value of diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el index 4b337e1c15c..6bb86738df0 100644 --- a/lisp/progmodes/etags.el +++ b/lisp/progmodes/etags.el @@ -1410,7 +1410,9 @@ hits the start of file." tag tag-info pt) (forward-line 1) (while (not (or (eobp) (looking-at "\f"))) - (setq tag-info (save-excursion (funcall snarf-tag-function t)) + ;; We used to use explicit tags when available, but the current goto-func + ;; can only handle implicit tags. + (setq tag-info (save-excursion (funcall snarf-tag-function nil)) tag (car tag-info) pt (with-current-buffer standard-output (point))) (princ tag) -- 2.30.2